Check Enricher Results scRNAseq pipeline


library(Seurat)
library(tidyverse)
library(enrichR)
Welcome to enrichR
Checking connection ... 
Enrichr ... Connection is Live!
FlyEnrichr ... Connection is Live!
WormEnrichr ... Connection is Live!
YeastEnrichr ... Connection is Live!
FishEnrichr ... Connection is Live!
OxEnrichr ... Connection is Live!

Get the EnrichR libraries and run the function to check libraries and make plots

setEnrichrSite("Enrichr") # Human genes
Connection changed to https://maayanlab.cloud/Enrichr/
Connection is Live!
# list of all the databases
# get the possible libraries
dbs <- listEnrichrDbs()

# this will list the possible libraries
dbs

# select libraries with cell types
db <- c('CellMarker_Augmented_2021','Azimuth_Cell_Types_2021')

# function for a quick look
checkCelltypes <- function(cluster_num = 0){
  clusterX <- ClusterMarkers %>% filter(cluster == cluster_num & avg_log2FC > 0.25)
  genes <- clusterX$gene
  # the cell type libraries
  # get the results for each library
  clusterX.cell <- enrichr(genes, databases = db)
  # visualize the results
print(plotEnrich(clusterX.cell[[1]], showTerms = 20, numChar = 40, y = "Count", orderBy = "P.value", title = 'CellMarker_Augmented_2021'))
print(plotEnrich(clusterX.cell[[2]], showTerms = 20, numChar = 40, y = "Count", orderBy = "P.value", title = 'Azimuth_Cell_Types_2021'))

}

Read in the data from HPCs


ClusterMarkers <- read.csv("/Users/rhalenathomas/Documents/Data/scRNAseq/ADHD_ZNZ_Mcgill/ADHDresultsFeb10/NSC/step7/info7/marker/ClusterMarkers.csv")
  
  

Run to get markers for each cluster


cluster0 <- checkCelltypes(cluster_num = 0)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

Cluster 0 gabaergic neurons

cluster1 <- checkCelltypes(cluster_num = 1)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

Cluster 1 fibroblast

cluster2 <- checkCelltypes(cluster_num = 2)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

Cluster 2 is neurons

# cluster 3
cluster3 <- checkCelltypes(cluster_num = 3)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

Cluster 3 are proliferating progenitors

# cluster 4
cluster4 <- checkCelltypes(cluster_num = 4)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

Cluster 4 - neural stem, proliferating

# cluster 5
cluster5 <- checkCelltypes(cluster_num = 5)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

Cluster 5 proliferating neural stem cells

# cluster 6
cluster6 <- checkCelltypes(cluster_num = 6)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

Cluster 6 embryonic coritical astrocytes, neurons

# cluster 7
cluster7 <- checkCelltypes(cluster_num = 7)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

Cluster 7 - dividing cells, neural stem cells

# cluster 8
cluster8 <- checkCelltypes(cluster_num = 8)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

Cluster 8 - muscle??

# cluster 9
cluster9 <- checkCelltypes(cluster_num = 9)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

Cluster 9 - cholinergic neurons, OPC

# cluster 10
cluster10 <- checkCelltypes(cluster_num = 10)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

T cell, vasculature, NSC

# cluster 11
cluster11 <- checkCelltypes(cluster_num = 11)
Uploading data to Enrichr... Done.
  Querying CellMarker_Augmented_2021... Done.
  Querying Azimuth_Cell_Types_2021... Done.
Parsing results... Done.

NPC - prefrontal cortex

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKQ2hlY2sgRW5yaWNoZXIgUmVzdWx0cyBzY1JOQXNlcSBwaXBlbGluZQoKCmBgYHtyfQoKbGlicmFyeShTZXVyYXQpCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGVucmljaFIpCgoKYGBgCgpHZXQgdGhlIEVucmljaFIgbGlicmFyaWVzIGFuZCBydW4gdGhlIGZ1bmN0aW9uIHRvIGNoZWNrIGxpYnJhcmllcyBhbmQgbWFrZSBwbG90cwpgYGB7cn0Kc2V0RW5yaWNoclNpdGUoIkVucmljaHIiKSAjIEh1bWFuIGdlbmVzCiMgbGlzdCBvZiBhbGwgdGhlIGRhdGFiYXNlcwojIGdldCB0aGUgcG9zc2libGUgbGlicmFyaWVzCmRicyA8LSBsaXN0RW5yaWNockRicygpCgojIHRoaXMgd2lsbCBsaXN0IHRoZSBwb3NzaWJsZSBsaWJyYXJpZXMKZGJzCgojIHNlbGVjdCBsaWJyYXJpZXMgd2l0aCBjZWxsIHR5cGVzCmRiIDwtIGMoJ0NlbGxNYXJrZXJfQXVnbWVudGVkXzIwMjEnLCdBemltdXRoX0NlbGxfVHlwZXNfMjAyMScpCgojIGZ1bmN0aW9uIGZvciBhIHF1aWNrIGxvb2sKY2hlY2tDZWxsdHlwZXMgPC0gZnVuY3Rpb24oY2x1c3Rlcl9udW0gPSAwKXsKICBjbHVzdGVyWCA8LSBDbHVzdGVyTWFya2VycyAlPiUgZmlsdGVyKGNsdXN0ZXIgPT0gY2x1c3Rlcl9udW0gJiBhdmdfbG9nMkZDID4gMC4yNSkKICBnZW5lcyA8LSBjbHVzdGVyWCRnZW5lCiAgIyB0aGUgY2VsbCB0eXBlIGxpYnJhcmllcwogICMgZ2V0IHRoZSByZXN1bHRzIGZvciBlYWNoIGxpYnJhcnkKICBjbHVzdGVyWC5jZWxsIDwtIGVucmljaHIoZ2VuZXMsIGRhdGFiYXNlcyA9IGRiKQogICMgdmlzdWFsaXplIHRoZSByZXN1bHRzCnByaW50KHBsb3RFbnJpY2goY2x1c3RlclguY2VsbFtbMV1dLCBzaG93VGVybXMgPSAyMCwgbnVtQ2hhciA9IDQwLCB5ID0gIkNvdW50Iiwgb3JkZXJCeSA9ICJQLnZhbHVlIiwgdGl0bGUgPSAnQ2VsbE1hcmtlcl9BdWdtZW50ZWRfMjAyMScpKQpwcmludChwbG90RW5yaWNoKGNsdXN0ZXJYLmNlbGxbWzJdXSwgc2hvd1Rlcm1zID0gMjAsIG51bUNoYXIgPSA0MCwgeSA9ICJDb3VudCIsIG9yZGVyQnkgPSAiUC52YWx1ZSIsIHRpdGxlID0gJ0F6aW11dGhfQ2VsbF9UeXBlc18yMDIxJykpCgp9CgoKCmBgYAoKClJlYWQgaW4gdGhlIGRhdGEgZnJvbSBIUENzCgpgYGB7cn0KCkNsdXN0ZXJNYXJrZXJzIDwtIHJlYWQuY3N2KCIvVXNlcnMvcmhhbGVuYXRob21hcy9Eb2N1bWVudHMvRGF0YS9zY1JOQXNlcS9BREhEX1pOWl9NY2dpbGwvQURIRHJlc3VsdHNGZWIxMC9OU0Mvc3RlcDcvaW5mbzcvbWFya2VyL0NsdXN0ZXJNYXJrZXJzLmNzdiIpCiAgCiAgCmBgYAoKClJ1biB0byBnZXQgbWFya2VycyBmb3IgZWFjaCBjbHVzdGVyIAoKCmBgYHtyfQoKY2x1c3RlcjAgPC0gY2hlY2tDZWxsdHlwZXMoY2x1c3Rlcl9udW0gPSAwKQoKYGBgCkNsdXN0ZXIgMCAgZ2FiYWVyZ2ljIG5ldXJvbnMKCgpgYGB7cn0KY2x1c3RlcjEgPC0gY2hlY2tDZWxsdHlwZXMoY2x1c3Rlcl9udW0gPSAxKQpgYGAKQ2x1c3RlciAxIGZpYnJvYmxhc3QKCgpgYGB7cn0KY2x1c3RlcjIgPC0gY2hlY2tDZWxsdHlwZXMoY2x1c3Rlcl9udW0gPSAyKQpgYGAKQ2x1c3RlciAyIGlzIG5ldXJvbnMKCgpgYGB7cn0KIyBjbHVzdGVyIDMKY2x1c3RlcjMgPC0gY2hlY2tDZWxsdHlwZXMoY2x1c3Rlcl9udW0gPSAzKQoKYGBgCkNsdXN0ZXIgMyBhcmUgcHJvbGlmZXJhdGluZyBwcm9nZW5pdG9ycwoKCmBgYHtyfQojIGNsdXN0ZXIgNApjbHVzdGVyNCA8LSBjaGVja0NlbGx0eXBlcyhjbHVzdGVyX251bSA9IDQpCmBgYApDbHVzdGVyIDQgLSBuZXVyYWwgc3RlbSwgcHJvbGlmZXJhdGluZwoKCgpgYGB7cn0KIyBjbHVzdGVyIDUKY2x1c3RlcjUgPC0gY2hlY2tDZWxsdHlwZXMoY2x1c3Rlcl9udW0gPSA1KQoKYGBgCkNsdXN0ZXIgNSBwcm9saWZlcmF0aW5nIG5ldXJhbCBzdGVtIGNlbGxzCgoKCmBgYHtyfQojIGNsdXN0ZXIgNgpjbHVzdGVyNiA8LSBjaGVja0NlbGx0eXBlcyhjbHVzdGVyX251bSA9IDYpCgpgYGAKQ2x1c3RlciA2IGVtYnJ5b25pYyBjb3JpdGljYWwgYXN0cm9jeXRlcywgbmV1cm9ucyAKCmBgYHtyfQojIGNsdXN0ZXIgNwpjbHVzdGVyNyA8LSBjaGVja0NlbGx0eXBlcyhjbHVzdGVyX251bSA9IDcpCgpgYGAKQ2x1c3RlciA3IC0gZGl2aWRpbmcgY2VsbHMsIG5ldXJhbCBzdGVtIGNlbGxzCgpgYGB7cn0KIyBjbHVzdGVyIDgKY2x1c3RlcjggPC0gY2hlY2tDZWxsdHlwZXMoY2x1c3Rlcl9udW0gPSA4KQpgYGAKCkNsdXN0ZXIgOCAtIG11c2NsZT8/IAoKYGBge3J9CiMgY2x1c3RlciA5CmNsdXN0ZXI5IDwtIGNoZWNrQ2VsbHR5cGVzKGNsdXN0ZXJfbnVtID0gOSkKYGBgCgpDbHVzdGVyIDkgLSBjaG9saW5lcmdpYyBuZXVyb25zLCBPUEMKCmBgYHtyfQojIGNsdXN0ZXIgMTAKY2x1c3RlcjEwIDwtIGNoZWNrQ2VsbHR5cGVzKGNsdXN0ZXJfbnVtID0gMTApCmBgYApUIGNlbGwsIHZhc2N1bGF0dXJlLCBOU0MKCmBgYHtyfQojIGNsdXN0ZXIgMTEKY2x1c3RlcjExIDwtIGNoZWNrQ2VsbHR5cGVzKGNsdXN0ZXJfbnVtID0gMTEpCmBgYAoKTlBDIC0gcHJlZnJvbnRhbCBjb3J0ZXgKCgo=